home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 43
/
Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso
/
Wildfire
/
Macros
/
editorDEMO.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-10-31
|
2KB
|
128 lines
/*
------------------------------------------------------------
EditorDEMO.rexx
This script demonstrates some editor-features
Copyright ©1996 WK-Artworks
------------------------------------------------------------
*/
if ~show('P','Wildfire') then do
say " Error: The Wildfire-program must be started before executing this script."
exit
end
address "Wildfire"
options results
M_CLOSEEDITOR
E_CLEAR
txt_text "tutorial/editor/txt1"
txt_centre
txt_wait
txt_text "tutorial/editor/txt2"
txt_centre
m_wait 3
M_OPENEDITOR
m_wait 2
txt_text "tutorial/editor/txt3"
txt_centre
txt_wait
t_getfile Anim1
filename1=result
t_getfile Anim2
filename2=result
E_AADD filename1
E_AADD filename2
txt_text "tutorial/editor/txt4"
txt_centre
txt_wait
E_ASELECT filename1
E_AINFO
EAI_DISPLAY NORMAL
m_wait 2
EAI_DISPLAY ZOOMED
m_wait 2
EAI_DISPLAY DITHERED
m_wait 2
EAI_CACHING ON
m_wait 2
EAI_CACHING OFF
EAI_DISPLAY NORMAL
m_wait 4
EAI_CLOSE
E_ASELECT filename2
m_wait 3
E_AINFO
m_wait 4
EAI_CLOSE
txt_text "tutorial/editor/txt5"
txt_centre
txt_wait
t_getfile Module1
filename3=result
E_MADD filename3 MODULE
m_wait 3
txt_text "tutorial/editor/txt6"
txt_centre
txt_wait
E_MEDIT
m_wait 3
MO_CLOSE
txt_text "tutorial/editor/txt7"
txt_centre
txt_wait
E_OPENPROFILE
m_wait 3
txt_text "tutorial/editor/txt8"
txt_centre
txt_wait
m_wait 3
E_CLOSEPROFILE
txt_text "tutorial/editor/txt9"
txt_centre
txt_wait
E_FILENAME "RAM:Test.prj"
m_wait 3
txt_text "tutorial/editor/txt10"
txt_centre
txt_wait
E_PLAYALL
m_wait2
txt_text "tutorial/editor/txt11"
txt_centre
txt_wait
m_wait 1
M_CLOSEEDITOR